<html>
<head>
<title>  </title>
<</head>
<body>
<%
set connectionToDatabase=server.createObject("ADODB.connection")
connectionTODatabase.connectionTimeOut=60
ConnectionToDatabase.Open"DSN"="  "

set recordCollection=ConnectionToDatabase.Execute("SELECT*FROM table")
Response.write("< TABLE BORDER=1><TR><TH>Number</TH><TH>Name</TH><TH>Extension</TH></TR>")

Do While NOT recordCollection.EOF
	Response.write("<TR>")
	For x=0 to recordCollection.Fields.Count-1
		Response.write("<TD">)
		Response.write(recordCollection(x))
		Response.write("</TD>")
	Next
	Response.write("</TR>")
	recordCollection.MoveNext
Loop

Response.write("</TABLE>")


ConnectionToDatabase.Close
set ConnectionToDatabase=Nothing
%>
</body>
</html>